﻿Friend Class CovertImage : Inherits System.Windows.Forms.AxHost
    Private Sub New()
        MyBase.New(Nothing)
    End Sub
    Public Shared Function Convert(ByVal img As System.Drawing.Bitmap) As stdole.IPictureDisp
        Return System.Windows.Forms.AxHost.GetIPictureDispFromPicture(img)
    End Function
End Class